home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- OldMode = FGgetmode
- FGsetmode 19
-
- FGsetcolor 103
- FGtext "Hello", 5
- FGwaitfor 18
-
- FGgetrgb 103, Red, Green, Blue
-
- WHILE Red+Green+Blue > 0
- IF Red > 0 THEN Red = Red - 1
- IF Green > 0 THEN Green = Green - 1
- IF Blue > 0 THEN Blue = Blue - 1
- FGsetrgb 103, Red, Green, Blue
- FGwaitfor 1
- WEND
-
- FGsetmode OldMode
- FGreset
-
- END